home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / NLphoneCheck 2.0 / NLphoneCheck2.0 / FMPR v2.x / Variant ;'s / NLphoneCheck1.1E;'s (.txt) next >
FileMaker Pro Database  |  1995-12-30  |  31KB  |  183 lines
  1. HBAM2001MAY84
  2. NLphoneCheck1.1E;'s :*
  3. Pro 1.0F!
  4. Pro 2.0 - 2.1I
  5. Main Dictionary
  6. TelOld)*10^6 ;2)="30"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="33"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="35"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="38"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="43"or Left(TF
  7. extToNum("0,."&TelOld)*10^6 ;2)="45"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="46"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="53"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="58"or Left(TextToNum("0,."&TelOld)*10^6 ;1
  8. 0,.&C
  9. Comment E CopyB
  10. If(Position(TelOld;"O";1) 
  11.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);                          "E: Letter O/o  
  12.   digit 0! F!"; If(Length(Int(TextToNum("0,."&Tel
  13. Single
  14. SingleB
  15.  the cursor in the (renamed?) field TelOld.  !!!!!!!
  16.                        If(Left(TextToNum("1,."&TelOld)*1000 ;4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ;4)
  17. 1099 ;"Old intern. conv.";                                                   If((Position(TelOld;D
  18. "+";1) 
  19.  0 and TextToNum("0,."&TelOld) =            TextToNum("0,."&                                                                      Right(TelOld; Length(TelOld)- Position(TelOld;"+";1))))                 
  20. ")) )))))))))
  21.  Nu test op lookup fout
  22. E: 0&
  23. ?? / ? d >>>  F!('
  24. TelNew#2B
  25. If(Position(TelOld;"O";1) 
  26.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);"E: O/o  
  27.  0! F!"; If(Length(Int(TextToNum("0,."&TelOld&1)*                                 B
  28.   10^(Length(TextToNum("0,."&Left(TelOld;                  Position(TelOld&"; "; "; "; 1))&1))-2))) < 3 ;     Middle(TelOld;Position(TelOld & "; ";"; ";1)+2 ;99);                             If(Left(TextToNum("
  29. If(Left(TextToNum("0,."&TelOld)*10^6 ;2)="10"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="13"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="20"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="24"or Left(TextToNum("0,."&TelOldB
  30. )*10^6 ;2)="26"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="36"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="37"or (Left(TextToNum("0,."&TelOld)*10^6 ;2)="40" and  Left(TextToNum("0,."&TelOld)*10^6 ;3) 
  31.  "406")or Left
  32. 30-12-1995
  33.     COMMENT E
  34. ID@NTL@BEL
  35. TELNEW#2
  36. TELOLD
  37. TelOldB
  38. JJLcheckData
  39. JJLcheckData
  40. JJLcheckData
  41.     Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - 3 ;1))&" "& Middle(TextToNum("0,."&TelOld&1);                                                    Length(TextToNum("0,."&Left(TelOld;PoZbsition(TelOld&"; ";"; ";1))& 1)) - 2 ;2))& Middle(TelOld;Position(TelOld&"; ";"; ";1);32) ))))))))
  42. h(TelOld)-2);               If((Position(TelOld;"+";1) 
  43.  0 and TextToNum("0,."&TelOld) =            
  44.  paid info nr'
  45. Old nr converted'
  46. New nr'
  47. Old and new; same dialling'
  48. '*Area+subs. doesnt exD
  49. ist; or missing digits'
  50. OK: New nr
  51. Now length check
  52. E: Letter O/o  
  53.   digit 0! F!'
  54. Too few digits'
  55. Old intern. conv.&
  56. OK: Inter
  57. '    d <<<< F!'    d >>>> F!
  58. 1,."&TelOld)*1000 ;4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ;4) 
  59.  1099 ;       "00"&Right(TelOld; Length(TelOld)-2);               If((Position(TelOld;"+";1) 
  60.  0 and TextToNum("0,."&TelOld) =            D
  61. TextToNum("0,."&Right(TelOld; Length(TelOld)- Position(TelOld;"+";1)))) or (TextToNum("0,."&TelOld) < 1/100) or (Left(@#1;1)=1 and (Length(1&TextToNum(TelOld)) - Length(TextToNum("0,."&Middle(TelOld;Position(Te
  62. Id@ntL@belB
  63.  A    Comment EB
  64. If(Position(TelOld;"O";1) 
  65.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);                          "E: Letter O/o  
  66.   digit 0! F!"; If(Length(Int(TextToNum("0,."&TelB
  67. Old&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;                    Position(TelOld&"; "; "; "; 1))&1))-2)))  < 3 ;"Too few digits";                                             
  68.           
  69.  ;5); If(Left(TextToNum("0,."&TelOld)*10^7 ;5)="42576"; Left(TextToNum("0,."&TelOld)*10^7 ;6); Left(TextToNum("0,."&TelOld)*10^6 ;4) ))))
  70. 0" and Left(TextToNum("0,."&TelOld)*10^6 ;3) 
  71.  "406")or Left(
  72. Id@ntL@bel
  73. TelNew#2
  74. E    Comment E
  75. Zapf Chancery
  76. No digits found
  77. )="6"  or Left(TextToNum("0,."&TelOld)*10^6 ;1)="7"; Left(TextToNum("0,."&TelOld)*10^6 ; If(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;       H
  78.                Position(TelOld&"; "; "; "; 1))&1))-3))) < 8 or                                Left(TextToNum("0,."&TelOld)*10^6 ;1)="6";2 ;3));                     If(Left(TextToNum("0,."&TelOld)*10^6 ;4)="2907
  79.  digit(s) to('
  80. E: 0'
  81. ,('    -0  ?? F!('
  82. (TextToNum("0,."&TelOld)*10^6 ;2)="50"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="55"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="70"or Left(TextToNum("0,."&TelOld)*10^6 ;2) ="80"or Left(TextToNum("0,."&TelOld)*10^6D
  83.  ;2)="85"or Left(TextToNum("0,."&TelOld)*10^6 ;2) ="90"; Left(TextToNum("0,."&TelOld)*10^6 ;3); If(Left(TextToNum("0,."&TelOld)*10^6 ;2)="15"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="23"or Left(TextToNum("0,."&
  84. national&
  85. OK: New Euro nr
  86.  Nu test op lookup fout
  87. '*Area+subs. doesnt exD
  88. ist; or missing digits'
  89. OK: New nr
  90. Now length check
  91. ")) )))))))))
  92. "or Left(TextToNum("0,."&TelOld)*10^6 ;4)="2990"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="3450"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="3480"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4132"or Left(TextToNum("0,J
  93. ."&TelOld)*10^6 ;4)="4160"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4167"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4180"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4927"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4
  94. );If(Left(@#2;1) = 6 ;2 ;4);9)) > 4 ;      " ";"")& Middle(Middle(TextToNum(Middle(TelOld;Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) = 6 ;2 ;T
  95. 4);9);5 ;2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9)) > 6 ;      " ";"")& Middle(M
  96. E: O/o  
  97.  0! F!'
  98. Now length check
  99. TelOld
  100. !!!!!  To convert imported or already existing records
  101. you must select
  102. Relookup from the Edit Menu, 
  103. with the cursor in the (renamed?) field TelOld.  !!!!!!!
  104. l    {I0_*
  105. L    [i0
  106. l    {I0_*
  107. A    JJL/ShareB
  108. Users
  109.     Helvetica
  110. Monaco
  111. Chicago
  112. New Century Schlbk
  113. Geneva
  114. Courier
  115. Times
  116. Zapf Chancery
  117. No digits found
  118. 024-366
  119. Digit
  120. apf Chancery
  121. No digits found
  122. 0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - Middle(@#2 ;2 ;1); Middle(@#2 ;2 ;1)-4)&" ";"")&                                              If(Middle(@#2 ;2 ;1)  > 3 ;Middle(TextToNum("0,."&TelOld&1);  X
  123.                                                   Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - 4 ;2); Middle(TextToNum("0,."&TelOld&1);                                                
  124.  Nu test op lookup fout
  125. E: 0&
  126. ";                                                                                             "0"&TextToNum(Middle(@#2 ;4 ;3))&"-"&                     If(Left(@#2;1) > 4 ; Left(Middle(TextToNum(Middle(TelOld;P
  127.  Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9);2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1); Posit
  128. lOld & "; ";"; ";1);32)&1)))=2); TelOld;                                                                   If(1 = 1 ;"";" Nu test op lookup fout") &                                              If(@#2 = 0 ;"E: F
  129. 0"&Left(@#1; If(Length(@#1) < 4 ;2 ;3))&"-"& Middle(@#1;If(Length(@#1) < 4 ;3 ;4);10)&"?? / ? d >>>  F!";                                              If((Length(Int(TextToNum("0,."&TelOld&1)*                  
  130.                                                                or (TextToNum("0,."&TelOld) < 1/100) ; "OK: International";                                                           If(Left(@#1;1)=1 and (Length(F
  131. 1&TextToNum(TelOld)) - Length(TextToNum("0,."&                               Middle(TelOld;Position(TelOld & "; ";"; ";1);32)&1)))=2 ;                          "OK: New Euro nr";                                
  132.                  10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) = 8  and  Left(@#2;1) = 1);                                                           "0"& Middle(TextToNum("0,."H
  133. &TelOld)*10^9 ;1 ;If(Length(@#1)=3 ;2 ;3)) & "-" & Middle(TextToNum("0,."&TelOld)*10^9 ;If(Length(@#1)=3 ;3 ;4);If(Length(@#1)=3 ;3 ;2)) & " " & Middle (TextToNum("0,."&TelOld)*10^9 ;6 ;2) & " " & Middle(TextTo
  134. 950"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4951"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="8360"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="8851"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42572"or Left(TextToNumL
  135. ("0,."&TelOld)*10^7 ;5)="42575"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42577"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42578"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42579"; Left(TextToNum("0,."&TelOld)*10^7
  136. (TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1)) <0 ; " short";  " long");                                                                               If(Middle(Int(TextToNum("0,."&TelOldN
  137. &1)* 10^(Length(TextToNum("0,."&TelOld&1))-2));                      (Middle(@#2 ;3 ;1)-Middle(@#2 ;2 ;1)+2);1) = 0 and               Left(@#2;1) < 5 ;"Abo nr begint met een 0";  "OK: " &                       
  138.                                                         If(Middle(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2));                      (Middle(@#2 ;3 ;1)-Middle(@#2 ;2 ;1)+2);1) = 0 anN
  139. d Left(@#2;1) < 5 ;                          "E: 0"&Left(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2));                            Middle(@#2;3 ;1) - Middle(@#2;2 ;1) + 1)& "-0  ?? F!
  140.   "E: " & Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1))& If((Length(Int(TextToNL
  141. um("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1)) <0 ; "d <<<< F!";  "d >>>> F!");                       
  142.                                              If(1 = 1 ;"";" Nu test op lookup fout") &                                              If(@#2 = 0 ;"Area+subs. doesnt exist; or missing digits";                     H
  143.                          If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) = 8  and  Left(@#2;1) = 1 ); 
  144. "; 1))&1))-3))) 
  145.  8 or Left(@#2;1) 
  146.  1);                                                                              Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextTL
  147. oNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1))& " digit(s) to" & If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left
  148. "OK: New nr";                                If(1=1 ;"";"Now length check")  & If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&J
  149. "; "; "; "; 1))&1))-3))) 
  150.  Middle(@#2 ;3 ;1) and Left (@#2 ;1) < 5)  and (Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; 
  151. iddle(TextToNum(Middle(TelOld;Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) = 6 ;2 ;4);9);7 ;2);                                                V
  152.           Middle(@#2;7 ;Right(@#2 ;1))&                                          If(Middle(@#2 ;2 ;1) > 4 ;Middle(TextToNum("0,."&TelOld&1);                                                    Length(TextToNum("
  153.  short'
  154.  long
  155. Abo nr begint met een 0'
  156. OK: &
  157. '    06 Number'
  158. New Euro free info nr'
  159. New Euro
  160. Single
  161. SingleB
  162. Single
  163. SingleB
  164.          If(Left(@#2;1) > 4 ;If(Left (@#2 ;1) = 6 ;"06 Number";"") &     If(Left (@#2 ;1) = 8 ;"New Euro free info nr";"") &                   If(Left (@#2 ;1) = 9 ;"New Euro paid info nr";"");                 P
  165.      If(Left (@#2 ;1)  
  166.  1 ;"Old nr converted";"")  &                          If(Left (@#2 ;1) = 2 ;"New nr";"")&                                            If(Left (@#2 ;1) = 3 ;"Old and new; same dialling";"Q
  167. ")) )))))))))
  168. 42572
  169. 42575
  170. 42577
  171. 42578
  172. 42579
  173. 42576
  174. Num("0,."&TelOld)*10^10 ;8 ;2) &  Middle(TelOld;Position(TelOld&"; ";"; ";1);32);                                                                                          If(1=1 ;"";"Now length check")  & If((LJ
  175. ength(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) 
  176.  Middle(@#2 ;3 ;1) and Left (@#2 ;1) < 5) ;               
  177. ion(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9)) >          2 ;" ";"")& Middle(Middle(TextToNum(Middle(TelOld;Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1)R
  178.  - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) = 6 ;2 ;4);9);3 ;2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1))
  179. Pro 1.0F!
  180. Pro 2.0 - 2.1I
  181. Main Dictionary
  182. User Dictionary
  183.